home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2001 May / macformat_103_may_2001.iso / Mac OS X Shareware / Photomover 2.0 / AppleScript samples / album test next >
Encoding:
Text File  |  2001-03-21  |  1.3 KB  |  56 lines  |  [TEXT/ToyS]
  1. tell application "iView PhotoMover"
  2.     
  3.     -- Save current settings
  4.     set klog to get the Log
  5.     set ksound to get the Sound
  6.     set kdetails to get the Details
  7.     set khost to get the Host
  8.     
  9.     --set the Details to true -- Set Details to true for tracking down problems.
  10.     set the Details to false
  11.     
  12.     (* function samples *)
  13.     
  14.     -- Get a file to upload...
  15.     set afile to choose file
  16.     activate
  17.     
  18.     -- 0 = PhotoPoint
  19.     -- 1 = ClubPhoto
  20.     -- 2 = zing
  21.     -- 3 = ImageStation
  22.     -- 4 = NikonNet
  23.     -- 5 = FotoTime
  24.     set the Log to true -- save  result to log file...
  25.     
  26.     repeat with hostid from 1 to 1
  27.         set the Host to hostid
  28.         try
  29.             
  30.             --  set timeout to some large number
  31.             with timeout of 3600 seconds -- how long to upload? 1 hour?
  32.                 
  33.                 -- upload the image to the current site.
  34.                 --    open afile
  35.                 open afile into album "iview" with description "test image description"
  36.                 --    open afile into album "Ottawa" with description "test image description"
  37.                 
  38.                 -- Note: Currently no site have support for keywords and descriptions yet. this will be added
  39.                 -- as site vendors help us add this feature.
  40.             end timeout
  41.             
  42.         on error msg
  43.             display dialog msg & return & "Uploading to host index " & hostid
  44.         end try
  45.     end repeat
  46.     
  47.     -- restore the settings
  48.     set the Log to klog
  49.     set the Sound to ksound
  50.     set the Details to kdetails
  51.     set the Host to khost
  52.     
  53.     -- quit
  54.     
  55. end tell
  56.